﻿Public Class frm_relatorio

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crvRelatorios.Load
        Dim aux As CrystalDecisions.CrystalReports.Engine.ReportClass
        aux = Me.crvRelatorios.ReportSource
        aux.Close()
    End Sub

    Private Sub frm_relatorio_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class